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{ module JNLDEF ident ‘'v04-000"' 


PGR RTE T CITI I TTT TIT TTrrrrrriri rir rit IIIT TTT TILT Titiitititity 


{* COPYRIGHT ‘c) 1978, 1980, 1962, 1984 8 
{* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
{* ALL RIGHTS RESERVED. 


® 
* 
® 
< 
® 
{+ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
{* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
{+ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SO OTHER * 
{+ COPIES THEREOF MAY NOT GE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
{* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
{* TRANSFERRED. . 
® 
{* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
{* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
{* CORPORATION. : 
* 
® 
t 
* 
® 
® 


{* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 5 aie OF ITS 
{* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


(eee eee eee eee ERA RAAHAAEHERAEARAREREREAERAAAEAEERAERTETEHEA RHEE ERE EEE 
{* 
aoe 


{ 
+ Facility: JOURNALING : DEFINITION OF USER SYMBOLICS 


{* Abstract: 
{* This module contains the symbolic definitions for user accessible 


* data structures. 
: Author: Joost Verhofstad 
Written by: Paui Beck 14-MAY-1982 - converted to SDL from MOL 
Modified by: 
v03-047 EMD0038 Ellen M. Dusseault 09-DEC-1983 


Define Literals, JATR$S_BUFSIZ and JATRSC Bursiz so as 


{ 
{ 
{ 
{* 
{* 
{* 
{* 
{* 
{* 
{* 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


. to be able to return to the reader the buffer size. 

4 v03-046 LY0423 Larry Yetto 30-SEP-1983 13:15:24 
" Add CJF$V_RCP flags to CJF service flags 

‘ v03-045 EMD0006 Ellen Dusseault 26-SEP-1983 

- Set constant MAXCOPIES to 1. 

e V03-044 MKLO165 Mary Kay Lyons 18-Aug-1983 

- Add module SCJIDEF. 

* v03-043 PRBO227 Paul Bec 28-JUL-1983 00:12 
Eliminate RUNODE ho oy (obsolete). 

* V03-042 JSV0366 Joost Verhofstad 27-JUL-1983 

. Add some CJF$ and RUSS symbols 


— 


ce 


YB BAWVWVVWVVww~ ww ss 
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| 
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{* 
fs v03-041 
{* 
{* 
{* 
{* 
cs v03-040 
{* 
{* 
{* 
{* 


v03-039 


v03-038 


v03-037 


v03-036 


v03-035 


v03-034 


v03-033 


v03-032 


v03-031 


v03-030 


v03-029 


v03-028 


v03-027 


v03-026 


es = 
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DAS0001 David Solom 22- ‘gtteny 

penaes due t o inpLenentation of RMS r ecoverke f ace RO 
BFILNAM, RFILNAM” JFILNAM, VOLUME, ona JNLNAME uith Age 
and CFILENAME. Remove RODBA JVOLUME, Rename RODBA BDEVICE a 
BVOLNAM to be VOLDEVICE and VOLTABEL. 


PRBO197 aul Bec 1=-JUN-1983 15:05 
Add RRP$B_CALL mse” tron CTLSGB _MSGMASK 

Add MESSAG cai (back de. 
Rearrange flags for RECOVER service, and add 

CJFSV_F CLOVER” and CJFSV_RESTART as well as the RRP equivalents. 


MKLO0075 Mary Kay Lyons 18-May-1983 
Add JSBSV_REMASTER. 

JSV0266 Joost Verhofstad 18-MAY-1983 
Change JSB; ointers to JNLNAM and ACPNAM buffers 


us 
plus add CJ FSC. =MXJNLNAML and CJFSC_MXPRCNAML 


Ae y Paul Bec 2-MAY-1983 19:08:39 
Use CSID in RRP. Fix Seechiddten of JFCBSC_STRING. 
Add TYPE and SUBTYPE fields to RRP. 


PRBO181 Paul Beck 30-APR-1983 

Add RUSYNC bits to “RUSS 

FWM0001 red Matthes 26-APR-1983 

Add RFSAMPLE ee. to RODBDEF. 

PRBO165 aul Beck 24-APR=1983 

Add RCPS$K DIRECTION request, delete JFCB$x_ENT_TYPE 

J$v0211 Joost Verhofstad 06-APR-1983 

Change JFCBSS_DATTIM to 16 

PRBO148 Paul Beck 31-MAR-1983 

Add RCPSK_MAX_COMMAND 

JSVv0192 Joost Verhofstad 15-MAR-1983 

Add JATRSC_SESSID 

LY0299 tvs 1-FEB-1983 
increase CJFS$C _MAKAT R toy CJFSC _MAXBUFSIZ constants 

MKLO44 Mary Kay Lyons 08-F EB-1983 
Add create new version item List codes. 

J$v0137 Joost Verhofstad 03-FEB-1983 
replace source, put in null packet 

Lv0260 -1983 


V-J 
Increase CJFS$C RUF IMPSIT to to 3000. Replace sPease MASK 
which accidently disappeared. 


LY0244 Larry Yetto 30-Dec-1982 


ne reaeipnn — 
| JNLDEF .SDL;1 16-SEP-1984 16:40:00.48 Page 3 
{* Move RUSS structure from jnidefint to here. Change 

{* JFCBSC_PROCNAME to JFCBSC_SESSID. Remove JFCBSC_BINARY, 

{* _PROCNODE, -PROCGROUP, and _PROCRUNTIME . Add Tength 

{* constants to JATR structure. 

f v03-025 JSV0104 st Verhofstad 0-Dec-1982 


CJFSC_PHASE1, CJFSC_PHASE 


Joo 10- 
Add CJFSC_RESET, CJFSC = pe CJFSC_COMPLETED, 
Z , CUFSC_MARK, 
CUFSCURESIDUAL, CJFSC_CLEANUP 


v03-024 PRBOO74 Paul Beck 29-Nov-1982 
Add RRPS$W_LOG_UNIT 

v03-023 LY0224 Larry Yetto 12-Nov-1982 
Add CJFSC_MAX_DATA_AREA and change CJFSC_MAX_STAGE 
from 25 to 15 

v03-022 PRBO042 Paul Beck 02-Nov-1982 
Add CJFSV_MERGE and CJF$V_LOG for SRECOVER service. 

v03-021 PRBO034 Paul Beck 01-Nov-1982 
Add RCP call-back definitions 

v03-020 sSv0086 Joost Verhofstad 28-0c t-1982 
Add CJFSC_MAXTBUF SZ 

v03-019 PRBOO032 Paul Beck 26-0CT-1982 
Add offsets for Recovery Routine call arguments. 

v03-018 PRBO029 Paul Beck 21-0CT-1982 


Chonge recovery routine call codes from JNL$_ to 
RCP$K_... and add codes for NOPR_ENTRY and 
LOG_OBJECT. Also change order in RRP to create an ARB. 


v03-017 ysv0083 Joost Verhofstad 18-0CT-1982 
Add CJFSC_RUFIMPSIZ 

v03-016 JSv0082 Joost Verhofstad 8-0CT-1982 
Add JATRSS_ENTPRUIC (+ $C_..) 

vO3-015 PRBOO17 Paul Beck 7-0CT-1982 
Add codes for recovery routine calls (JNL$_START etc.) 

v03-014 PRBOO14 Paul Beck 5-0CT-1982 


Change origin of RODBA definitions, and clean up SDL 
usage (‘unsigned + technique for flag arrays) 


v03-013 PRBOO09 Paul Beck 16-SEP-1982 
Add JEN structure. 


{e 

<* v03-012 PRBOO0O7 Paul Beck 20-AUG-1982 
+ Add OUTRANGE filter. 
{e 


v03-011 GJA0019 Greg Awdziewicz, 19-Aug-1982 15:30 
Add write modifier Eofintt lens. WRMODDEF . 


i ses 
aA Te ae] 
a) * 


——— 
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vO3-010 LY0104 Larry Yetto 16-Aug-1982 
Add JATRS$S_BIODATA constant 


v03-09 PRBO006 Paul Beck 11-AUG-1982 

Add MIN_VAL for YATR and JFCB. 
v03-08 PRBOOOS Paul Beck 2-AUG-1982 

Fix position of MAX_VAL in JFCB and gi nd pee warning 
messa Add ae “attribute. pelete eat 


v03-07 JSvO $3 oost Vernotstes -Jul-19 
Add JSB$C_CL ond CJFSC SGBSTA 

v03-06 PRBOO004 Paul Beck soe JuL- 1982 
age rs RESET, COMPLETED 

v03-05 #PRBOOO Paul Beck 20-JUL-1982 
Add nit attribute. to JATR. 

v03-004 PRBOOO Paul Beck 16-JUL-1982 


8 
Add WRFLG definitions, OS a at cceed filter & attribute. 
v03-003 PRBO001 Paul B 1982 
Add new filters for Pace name, object ID; 
Make JFCB and JATR ranges disjoint 
Add RRPSM_RECOVERY_UNIT to RR Su "FLAGS: 
Correct RODB object FBS for Recovery Unit processing; 
woz 8 Bt wae CJFS —_ 

etto lhe 


ch hae JSBSV_ SITE. to ” SBSy. KNOWN 


v03-002 
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module SCJFDEF; /* 

J/ree 

je 


/* CJF-flags, specified to CJF services as parameters 
A and CJF constants used internally in CJF and in the user interface 
J 


[too 


aggregate SCJFDEF structure prefix CJF$; 


LARRRARARAARALLALALAAAL ALLELE LEER S EES ESE RESET 


t Note: we have three separate definitions of journal types: 
¢ CJFS_xx, DTS_xxJNL, and JSBSC_xx. Yecch. 
{ 


SHKHT HARA e ATK Kee eH eeeeeKeK eee eeeeeeeeeeeeeReeeeeerteeerere 


constant ( 
RU /* RU journal 


Bl /* BI journal 
Al /* Al journal 
AT /* AT journal 
L /* CL journal 
} equals 1 increment 1 tag *"’; 
#OTS_RUJNL = CJFS_RU; { Define local constants to avoid redefinition 
#OT$S_BIJNL = CJFS_BI; 
#DTS_AIJNL = CJFS_AI; 
#DTS_ATJNL = CJFS_AT; 
WOTS_CLIJNL = CJFS-CL; 
CJFMASKS structure; /* define CJF masks 
PHASE 1 bitfield mask; /* do phase 1 
PHASE2 bitfield mask; /* do phase 2 
MARK bitfield mask; /* make mark point 
FORWARD bitfield mask; /* read in fifo order 
BACKWARD bitfield mask; /* read in Lifo order 
ABORT bitfield mask; /* abort RU 
/* Note: all previous bits must go 
/* in first byte 
READ bitfield mask; /* read indicator 
WRITE bitfield mask; /* write indicator 
DELFIL bitfield mask; /* delete file flag 
CONT bitfield mask; /* continue: used with MNTJMD 
INIT bitfield mask; /* initialize flag: with MNTJMD 
DRVWT bitfield mask; /* driver-wait flag 
UNIT bitfield mask; /* only specified units to be effected 
NOUNLOAD bitfield mask; /* no-unload of medium/media 
SUPERSEDE bitfield mask; /* supersede flag 
/* Note: all previous bits must go 
/* in first word 
RESIDUAL bitfield mask; /* This is a residual entry indicator 
SAVF IL bitfield mask; /* save file fla 
DISCONNECT bitfield mask; /* Disconnect label/uic pair 
NOLOOKUP bitfield mask; /* Do not perform known journal 


/* lookup in $ASSJNL 


ee nate nena 


pean enaleeeeeterserensineneel-sieeeespeatoome 

| 

JNLDEF .SDL;1 
ADDF ILTER bitfield mask; 
DELFILTER bitfield mask; 
COMPLETED bitfield mask; 
RESET bitfield mask; 
RE T bitfield mask; 
FORCE bitfield mask; 
RESTART bitfield mask; 
FAILOVER bitfield mask; 
LOG bitfield mask; 
MERGE bitfield mask; 
LOGOBJ bitfield mask; 
ROOTDEV bitfield mask; 
RCP bitfield mask; 


end CJFMASKS; 


constant ABENUM equals 8 539 C; 
constant BUF IOMAX equals 200 tag 
a 


C: 
constant DEFBUFSIZ equals 512 tag t; 


constant INITADBNUM equals 8 tag C; / 


constant MAXATTR equals 27 tag C; 


constant MAXBUFSIZ equals 20 tag C; 
constant MAXCOPIES equals 1 fag C3 
constant MAXFILLEN equals os i Cs 
constant MAXFILT equals 51 5 
constant MAXITEMS equals 21 : 
constant MAXJNLS equals 3 

constant MAXAIJNL equals 31 

constant MAXBIJNL equals 31 

constant MAXRUJNL equals 


1 bag C; /* max 
constant MAXRECSIZ equals rs tag C;/* max journal — site 


constant MAXSPLFIL equals 


/* 
/* 
/t 

© 
/* 
/* 
/e 
/* 
/* 
/* 
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Add filter (SMODFLT) 

Delete filter (SMODFLT) 

RU completed successfully 

RU was reset to mark (ID in attributes) 
Recovery for volume mount 

Modifier for Forward/Backward 

Restart frozen REMOUNT recovery op 
Failover RUs for remastered journal 
RECOVER/LOG request 

Merge new facility with RCP 
poarees List of frozen objects 

In veering root RU journal or not 
Service call coming from the RCP 


Number of ABEs allocated per ABL 

Max size buffer for which BIO done 
default buffer size in bytes 

inial number of ADBs per ADL 

Max number of attributes returned 
with read. 

max buffer size in 512 b. blocks 

Max number of journal copies allowed 

max file sonee 

Max filter size 


Max number of items in items List for MOUNT 


max number of journals on one tape group 
max AI journals that can be accesse 
max BI journals that can be accessed 


RU 
les 


constant MAXTBUFSZ equals 2048 tag C; /* max size journal tape buffer in bytes 


constant MAX_STAGE equals 15 tag 
constant MAX_DATA_AREA equats 15*12 


constant MXDEVNAML equals 20 tag C; 
constant MXGRPNAML equals 15 tag C; 
constant MXITEMLEN equals <0 tag C; 
constant MXJNLNAM 

constant MXLENATR equals 20 tag C; 
constant MXLENFIL equals 64 tag C; 
constant MXPRCNAML equals 15 tag C; 
constant MXSGBLEN equals 255 tag C; 
constant NUMVLE equals 8 tag C; 
constant RDBUFMAX equals 13 bag C3 
constant RUFIMPSIZ equals 3000 tag C 
constant RULINC equals 5 tag C; 


constant RUDLEN equals 1 39 Cs 
constant SGBSTART equals 12 tag gi 
constant ACPUIC equals ((1a16) ) 


/* 

/* 

tag 
® 


max number of next stage macros in 
one routine 
C; /* max bytes of next stage 

data allowed in one routine 

maximum length device name 

max imum group name Length 

max Length item in item List for MOUNT 

max length journal name 

Max length attribute field 

Max length filter element 

Max Length pee name string 

7 field Length 
n 


itial and incremental number of VLEs 

Max buffer that can be used for reading 
RUF impure area size 

RUL increment: number of RUEs added 
when RUL i 


) 
constant MAXZFBUF equals 127 tag C; /* Max size buf for O-filling jnl file 


1 


@SW YW VN SNB Ok 


i 


~~~ 
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Jee 


/* 
a Definitions for codes indicating the type of RU-control entry. 
/t- 


constant ( 
PHASE1 /* phasel entry 
»PHASE2 /* phase2 entry 
ABORT /* abort entry 
MARK /* mark point entry 
eRESET /* reset entry 
~ COMPLETED /* completed entry 
RESIDUAL /* res teust Rs , 
CLEANUP /* cleanup e 
j equals 1 increnent 4 aretia CFs tag ‘'C’’; 


{ee 
is Definitions for Recovery Control Process and Recovery Routines 
Fen eel taneous constants 
ie constant LOGLENGTH equals 512 prefix RCPS; /* max Length of log mbx msg 
aaa to argument List supplied to Recovery Routines by the RCP. 


constant ( 
COMMAND /* Command code defines type of call (see below) 
»RRP /* Address of yrenene i > Packet 
JEN /* Address of gournat ry 
, IMPURE /* Address of RR-supp vied seve data area 
»ASTADR /* Address of RCP=suppl ied AST for asynch op's 
CALLBAK /* Address of RCPARGS’ tag callback routine 
j equals 4 increment 4 prefix RCPARG 


{te 


/* Command codes for Recovery Routines within Recovery Control Process 
. (RCPARG$_COMMAND) . 


constant ( 


START /* Start of Recovery Operation 

«PROCESS /e evasess a Journal Entr 

» END /* End of Recovery Operatio 

»MAP_ENTRY /* Process Journal Entry as “Napping Entry 
»LOCR_ENTRY /* Lock a Journal Entry 

- ABORT /* Abort a Recovery Operation 

-NOPR_ENTRY /* Process Journal Entry; caller lacks ib en 
,LOG_OBJECT /* Return log information about oB JECT D entry 
-DIRECTION /* Request direction to roll Phase 1 

LASTPLUS1 /* ee Insert new entries before hte tee 

S equals 1 increment 1 prefix RCPS ; 


#max_command = RCPS$K_LASTPLUS1; : 
constant MAX_ COMMAND equals” #max_command-1 prefix RCP$; /* Adjust back 


/t+ 
os _Codes to pass as Pl to RCPARGS_CALLBAK (RCP callback routine). 


) 


— 


SVN WWW BWVW BWV YW WT 
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J! 
constant ( 
WAIT /* Wait for AST (no additional arguments) 
»FADD /* Add Filter (P2=Address of filter List) 
oF DEL /* Delete Filter (P2=Address of filter List) 
~LOGMSG /* Log Message (P2=Address of message descr.) 
MESSAG /* Other message (P2=Addr of msg descr.) 


j equals 64 increment 1 prefix RCPS ; 


end SCJFDEF; 
end_module; 


m 
/ 
iz 
iz 
/ 
iz 
4 
/ 
/ 
/ 
ai 
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module SWRFLGDEF; 
2+4¢ 


/* WRFELG = Flags supplied with SWRITEJNL 
J 


/* These flags may be supplied with a call to SWRITEJNL to ectonseny the 

/* journal entry. The {lags may later be read as an attribute (JATRSC_ENTATR) of 
/* the journal entry via SREADJNL or ney be used as a filter (JFCBSC_ENTATR) to 
. SPOSJNL to select flagged journal entr 
{to-- 


ies. 


aggregate SWRFLGDEF structure prefix WRFLGS$; 


WRFLG structure; /* define CJF masks 
Al bitfield mask; /* This is a roll forward (Al) entry 
Bl bitfield mask; /* This is a roll back (BI) entry 
RUALSO bitfield mask; /* This Al/BI entry also written tc RUJ 
OBJECT_ID bitfield mask; /* This entry identifies an object 
LOCK bitfield mask; /* This entry contains locking info 
end WRFLG; 
end SWRFLGDEF ; 
end_module; 


ree 


————— 


6.48 
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module SWRMODDEF; 

{eee 


/* WRMOD = Modifiers supplied with SWRITEJNL 
/* These flags may be supplied with a call to SWRITEJNL to modify the write 


/* Q10, They are aefined to have the same values as the corresponding 10 
/* modifiers. 


aggregate SWRMODDEF structure prefix WRMODS; 
WRMOD structure; /* define write modifier masks 


foo bitfield length 6 fill; /* Skip 6 bit positions so that the 
/* defined values agree with IOSDEF. 


FORCE bitfield mask; /* Force entry to be written to file. 
CNTRLENTRY bitfield mask; /* This is a control entry. 
end WRMOD; 
end SWRMODDEF ; 
end_module; 


HS VPPYPSPSPSVTVSsSSSs B 
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module SILEDEF; /* 
/eee 


/t 
ILE = Item List Element for MOUNT 
. The item List parameter for MOUNT consists of these items 
/t-- 
aggregate SILEDEF structure prefix ILE$; 
BUFLEN word unsigned; /* quiver Length 
ITEMCODE word unsigned; /* item code 
BUF F ADDR longword unsigned; /* buffer address 
RESLEN longword unsigned; /* result length (used for GETDVI) 


constant “‘LENGTH’ equals .; /* Length of data structure 
constant "LENGTH" equals . tag C; /* Length of data structure 


end SILEDEF; 
end_module; 


M 
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module SJATRDEF; /* 
{tee 

/e 

te JATR = Journal Attributes 
co 


/* A READ-Journal operation (SREADJNL) can also be used to get attributes 
/* of the entry boing read and/or attributes of the journal from which 

/* reading is done. The attribute block is a vector of attribute descriptors 

/* which contain attribute type and attribute size in the first longword 

/* and the address of the user buffer for the attribute in the second longword. 
/* The attribute block is zero ended. 


/t weteee WARNING seeeee 

/* If any new attributes are added or old attributes removed make sure that 
fe the constant CJFSC_MAXATTR is updated to reflect the change. 

/t weeeee WARNING teeeee 


/e=- 


aggregate SJATRDEF structure prefix JATRS; 


SIZE word unsigned; /* size of attribute descriptor block 
TYPE word unsigned; /* type of attribute , 
ADDR longword unsigned; /* address user buffer for attribute 


constant CTRLBLCKSIZ equals . tag C; /* control block size 
constant “‘LENGTH’’ equals . tag C; 
constant "LENGTH" equals .; 


#JATR_BASE = 3; . 
. constant MIN_VAL equals #JATR_BASE tag C; /* define low Limit 


° 
/* Attribute codes 
/* weeeee WARNING teeere 
/* If any new attributes are added cr old attributes removed make sure that 
/* the constant CJFSC_MAXATTR is updated to reflect the change. 


/t eeeeee WARNING eeenee er 
/t- 
constant ( er 
TIME /* time 
-ENTMOD /* access mode of entry 
~JNLMOD /* access mode for journal 
»SEQNO /* sequence number of entry 
»ENTMASK /* mask given to entry at write 
-JNLMASK /* journal mask 
eJNLCRDAT /* journal device creation date/time 
-FILCRDAT /* journal file creation date/time 
»COPAVL /* number of journal copies available 
COPEXI /* number of journal copies existing 
ENTUIC /* UIC of entry 
LUIC /* UIC of journal 
eENTPROT /* protection mask of entry 
~JNLPROT /* protection mask of journal 
FILSIZ /* journal file size (disk journals only) 
~BIODATA /* 610 journal entry = internal only 
-DIODATA /* DIO journal entry - internal only 
ENTLEN /* entry Length 


pa lemere ts feg  Se a ae 


N 
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JNLDEF .SDL;1 
oXFERCNT /* Count of # of bytes actually transfered. 
»FACCOD /* facility code 
eMAXENTSIZ /* Maximum size (bytes) of a journal entry. 
ENTATR /* Journal mer attribute flags (WRFLGS$...) 
»RU /* Recovery Unit ID for this entry 
»MARKPT /t Markpoint ID for this entry 
-ENTPRUIC /* VIC 9 process that wrote entry 
»SESSID /* Session ID from which wary was written 
»BUFSIZ /* Size of buffers for journal in 512 ote blocks 
MAX_VAL aximum value * MUST BE LAST ENTRY IN LIST * 


x. /* ™ 
5 equals #JATRBASE increment 1 tag C; 


/t weeeee WARNING ** 


/* If any new attributes are added or old attributes removed make sure that 


/* the constant CJFSC_MAXATTR is updated 
/t seeeee WARNING teeeet 


/* 
constant TIME equals 8 tag S; /* 
constant ENTMOD equals 1 tag S; /* 
constant JNLMOD equals 1 tag S$; /* 
constant SEQNO equals 4 tag S$; /* 
constant ENTMASK equals 4 tag S; /* 
constant JNLMASK equals 4 tag S; /* 
constant JNLCRDAT equals 8 tag $;/* 
constant FILCRDAT equals 8 tag S;/* 
constant COPAVL equals 1 tag S$; /* 
constant COPEXI equals 1 tag S$; /* 
constant ENTUIC equals 4 tag S; /* 
constant JNLUIC equals 4 tag S$; /* 
constant ENTPROT equals § tag S; /* 
constant JNLPROT equals 2 tag S; /* 
constant FILSIZ equals 4 tag S; /* 
constant BIODATA equals : tag S; /* 
constant DIODATA equals 8 tag S; /* 
constant ENTLEN equals 4 tag S; /* 
constant XFERCNT equals 4 tag S; /* 


constant /* 


to reflect the change. 


attribute sizes 
time 


access mode of entry 
access mode for journal 
sequence number of entry 
mask given to entry at write 
ournal mask 
ournal device creation date/time 
ournal file creation date/time 
number of journal copies available 
number of journal copies existing 
UIC of entry 
UIC of journal 
protection mask of entry 
rotection mask of journal 
ournal file size (disk journals only) 
10 journal entry - internal only 
DIO journal entry - internal only 
entry length 
Transfer count (bytes). 
facility code 


FACCOD equals 2 gag S$; 
constant MAXENTSIZ equals 2 tag S;/* Maximum size (bytes) of journal entry. 
ag 


constant ENTATR equals 4 tag S; /* 
constant RUID equals 16 tag S; /* 
constant MARKPT equals 4 tag § 


Journal entry attribute 
Recovery Unit ID 


constant ENTPRUIC equals 4 fags: /* UIC of process that wrote entry 


constant SESSID equals 16 tag S; /* 


constant BUFSIZ equals 2 tag s 8 


constant MAX_VAL equals 1 tag 
/t wetene WARNING teeeee 


/* If any new attributes are added or old attributes removed make sure that 
/* the constant CJFSC_MAXATTR is updated to reflect the change. 


/t weeeee WARNING teeeet 
end SJATRDEF; 
end_module; 


2 >> 2 ® LF SYS DDPDDDZ 
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| module SJFCEDEF, /* 

Jee 

jt 

fe JFCB = Journal Filter Control Block 


When a POSJNL (Position Journal) is done, the caller specifies the 
cate ory of entries he wants to read. This is done by pessing a filter. 
ilter consists of a vector of descriptors, which have in their 

first longword the size and i of the filter element, and in their 
second longword the address of the user buffer containing the value of 
/* the filter element 


/* ee NOTE ESPECIALLY: The RUID and MARK filters are valid only for RU journals 


/* and are the ONLY filters used for RU journals; furthermore, 
/* the RUID filter MUST be provided for RU journals. 


aggregate SJFCBDEF structure prefix JFCBS; 


~sS SS 
eaeens 


SIZE word unsigned; /* size of filter element descriptor block 
TYPE word unsigned; /* type of filter element 
ADDR longword unsigned; /* address user buffer for filter element 


constant CTRLBLCKSIZ equals . tag C; /* control block size 
constant ‘LENGTH’ equals . tag C; 
constant “‘LENGTH" equals .; 


. TERM lLongword unsigned; /* offset to terminating zero from last entry 
* 
/* Filter element codes 
Re 
#JFCB_BASE = 64; eg 
constant MIN_VAL equals #JFCB_BASE tag C; /* define low Limit 
constant ( 
/* UIC of write. of ory ; 
~ACMODE /* access mode from which entry was written 
~FACCODE /* facility code of of facility that wrote entry 
STRING /* field describing: in first word offset 
/* in-user entry, in rest of field 
/* atring to match entry's subfield 
MASK" /* mask given to entry at write 
- SEQNO /* sequence number or range: lowest # for 
/* reading AT and BI int s, highest # for 
/* reading AT and Al jnl's 
/* if two longwords supplied, range of sequence #s 
»DATTIM /* date time up to and/or from which to read 
eRUID /* RU identifier ’ 
» MARK /* MARK point ID, up to which to roll back 
eSESSID /* session ID 
° /* Process ID : 
ACTIVE /* Describes what action to take with 
/* active processes . 
-cpare /* *** put next new filter here *t* 
JOURNAL /* Journal name (for RCP = not used by ACP) 
} 


| INLDEF «SDL; 1 
»ENTATR /* Journal 
»OUTRANGE /* matches 


/* maximum 


MAK_VAL 
S$ equals #JFCB_BASE increment 1 tag C; 


constant VIC equals 4 tag S$; /* 
constant ACMODE equals 1 tag S$; /* 
constant FACCODE equals ¢ tag S; /* 
constant STRING equals 512 tag S; 
® 
/* 
/* 
constant ‘“MASK'' equals 4 tag S$; /* 
constant SEQNO equals 8 tag S$; /* 
constant DATTIM equals 16 tag S; /* 
constant RUID equals 16 tag S; /* 
constant MARK equais 4 tay S; /* 
constant SESSID equals 15 taq $; /* 
i $4 tag S$; /* 
constant ACTIVE equals i_ tag S; /* 
constant JOURNAL equals 12 tag S; /* 
constant ENTATR equals 4 tag S; /* 
constant OUTRANGE equals 8 taq S$; /* 
constant MAX_VAL equals 4 tag S; /* 
constant ( 
EXCLUDE /* Exclude 
» INCLUDE /« Include 


5 equals 0 increment 1 tag C; 
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entry attribute flags 
entries outside range of re #s 
value * MUST BE LAST ENTRY IN LIST * 


UIC of writer of He 
access mode from which entry was written 
facility code of of facility that wrote entry 
field hey aay | in first word offset 
in user entry in second word length 
of subfield, in rest of field 
string to match entry's subfieid 
mask given to entry at write 
sequence number(s) | 
date time up to and/or from which to read 
RU identifier 
MARK point ID, up to which to roll back 
session ID 
process ID 
Active process flag 
journal name : 
Journal entry attribute flag 
low, high Limit sequence numbers 
maximum value 


entries from active processes 
entries from active processes 


/* Ignore effects cf active processes 


/* Special INTERNAL definitions of the JFCB structure (used by the driver 


/* and the ACP only. 


constant DIRECT equals JFCBSC_MAX_VAL tag C;/* The typecode for the direction flag is 
/* set to the maximum type-code value. 


| 
constant PIbd equal 
| 


constant DIRECT equals 4 tag S; /* 
end SJF CBDEF ; 
end_module; - 


or —_— - -- — —— -_—— 


The size of the flag is 4 (7?) bytes. 


ea, 


oa ~~ SO 


eco 
i 


0 
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module SJNLCHARDEF; /* 
jess 


/* 
ae JNLCHAR = journal characteristics bits 


/to- 


aggregate SJNLCHARDEF structure prefix JNLCHARS; 
RESWL bitfield mask; /* reset SWL for jnl 
SEAVL bitfield mask; /* set def on-line again 
REAVL bitfield mask; /* take device off-line 

end SJNLCHARDEF ; 

end_module; 


-—--~-- ae sae ppgtiincennttaamtndi 
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module S$JSBDEF; /* 
{eee 
/* 
aS JSB = Journal Specification Block 
/* When a journal is to be created, the user must pass this 
Jn structure to the CJF SCREJNL service. 
| [t-- 


aggregate SJSBDEF structure prefix JSB$; 


JNLNAMLEN word unsigned; /* Length journal name 

SPAREO word unsigned fill; /* spare 

JNLNAM Longword unsigned; /* journal name ASCII 

SPARE word unsigned fill; /* spare 

JNLTYP arte unsigned; /* journal type. can be one of: 
constant RU equals #DTS_RUJNL tag C; /* RU journal 


C; 
constant Bl equals #DT$_BIJNL tag C; /* BI journal 
constant Al equals #DT$_AIJNL tag C; /* Al journal 
constant AT equals #DT$_ATJNL tag C; /* AT journal 
constant CL equals #DT$_CLJNL tag C; /* CL journal 


JNLDEV byte unsigned; /* journal device type. can be one of: 
constant ( 
/* ournal is on disk 


, TAPE /* ournal is on tape 
) equals 1 increment 1 tag C; 


*MASK"’ a pet unsigned; /* journal mask 
FACCOD word unsigned; /* facility code (eg RMS) 
APPLID word unsigned; /* applications id (eg datatrieve) 
MAXSIZ word unsigned; /* maximum entry size 
sparel word unsigned; /* spare . 
FILSIZ congeners unsigned; /* blocks to initially allocate for journal file 
FILEXT word unsigned; /* blocks to extend journal file when full 
BUF SIZ word unsigned; /* buffer size (in 512 byte blocks) 
QUOTA longword unsigned; /* byte quota ‘for RU journals only) 
ACMODE byte unsigned; /* least priv access mode allowed 
constant ( 

KERNEL /* kernel mode 

EXEC /* exec mode 

SUPER /* supervisor mode 


/* user mode 
) equals 0 increment 1 tag C; 


spared byte unsigned; /* spare (for longword alignment) | 
PROT word unsigned; /* protection mask for journal device 


uvic_overlay union; 
uit 


longword unsigned;/* UIC for journal device 
uic_0 structure; /* 


= 


ASAAAAAAAAAAAAAAAAAAAAAAAAARAAAR AAAAAAAAAAAAAAAAAAAAAAAAA 


coo  —  SeeSeSeSSeSeSSSSseFSeseF 


| JNLDEF SOL; 1 
ule nen word unsigned; /* 
UIC_GR A word unsigned; /* 
end u 
end “ole overlay; 


“hens a en 
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UIC member number 
UIC group number 


ngword rite /* flags as follows: 


flags_bits structure; 


oe 

/* 
TMPJNL bitfield mask; /* 
KNOWN bitfield mask; /* 
CREATE bittield mask; /* 
CIF bitfield mask; /* 
TMPFIL bitfield mask; /* 
CREACP bitfield mask; A 

® 
DIFACP bitfield mask; /* 


REPLACE bitfield mask; /* 


/* 
TAPEDRIVE bitfield mask;/* 
CLUSTER bitfield mask; i: 
& 


REMASTER bitfield mask; 


NOTE: flags are yirt bn prologue - 
must be in same x 
temporary journa device - delete on last deaccess 
site permanent journal 
always sroate f i (supercedes CREATE_IF) 
create onl file does not exist 
temporary Sent file - delete wen device deleted 
create a new ACP. OPER priv req'ed. 
ACP name in JSB is valid. 
do not use default ACP. 
ACP name in J§8 is valid. 
replace current journal with this 
DELETE priv required 
(internal only) create journal tape drive 
create the journal across 
the cluster 
ren only) remaster the journal 


filler bitfield Length $3-8 fill; 


end flags_bits 


end flags~ th. 
ACPNAMLEN word unsigned; 
SPARES word unsigned; 
ACPNAM Longword unsigned: 
MAX_JNLS word unsigned; /* 
COPTES byte unsigned; /* 
SPARE3 byte unsigned; /* 
EXPDAT quadword unsigned; 


/* Primary file specifications 
PRINAMDES longword unsigned; 
PRIRESDES  longword unsigned: / 
PRIRESLEN lLongword una iqned: 


constant “‘LENGTH’’ equals .; ye 
tag 


constant "LENGTH" equals . 
end SJSBDEF ; 
end_module; 


/* Length prcnam string 
/* spare 
/* prcnam of alternate ACP 


(internal et max jnls (if TAPEDRIVE set) 
number of co 
SPARE (for longuerd alignment) 


/* expiration date (-1 = never) 


; address of filename Speer teter. list 

(one reer per file) (requ 

/* address of result string descriptor List 
(one gece’ per file) (optional) 

. address of result cengt list 

(one longword per file) optional) 


Length of data structure 
C; /* Length of data structure 


“ay 


AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
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= 


module SRODBDEF; /* 
(«ee 


/* 
- RODB = Recovery Object Descriptor Block 
an The RODB describes the object to recover. 


/to- 


aggregate SRODBDEF structure prefix RODBS; 
TYPE grte unsigned; /* Type of object described 


constant 

RMSFILE /* ...Object is an RMS file 

» VOLUME /* ...Object is a volume set 

oRU /* ...O0bject is a Recovery Unit 

»RUJNL /* ...O0bject is a Recovery Unit Journal 

spare /* ...RUNODE removed from here 

»FACCOD /* ...Facility code for use with merge ** INTERNAL USE ONLY ** 

RF SAMPLE /* ** Ob} 

j equals 1 increment 1; 

COUNT byte unsigned; /* Number of attributes assoc with object 
SIZE word unsigned; /* Size of 
POINTER address; /* Address of attribute List 


constant ‘LENGTH’ equals .; /* Length of this structure 
constant “‘LENGTH’’ equals . tag C; /* Length of data structure 


end SRODBDEF ; 
/t 


[tee 

/* 

. RODBA = Recovery Object Descriptor Block Attribute 

x The RODBA describes an attribute associated with the object of recovery. 
® 


[too 


ect is the Sample Application 


aggregate SRODBADEF structure prefix RODBAS; 


TYPE byte unsigned; /* Type of object described 
opere byte unsigned; /* Spare 

SIZE word unsigned; /* Size of attribute 
POINTER address; /* Pointer to attribute 


constant "LENGTH" equals .; /* Length of this structure 
constant "LENGTH" equals . tag C; /* length of data structure 


{t+ 
. Define attributes for RMS object attributes 
constant ( 
F ILENAME /* File name to recover 
i CF ILENAME /* File name to create and recover 
“s Define attributes for Volume Recovery attributes 
t= 


-VOLDEVICE /* Volume device name 
-VOLLABEL /* Volume Label 


AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZAAAAAAAAA 
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jee 
is Define attributes for RU attributes 


on eRUID /* Recovery Unit ID 

re attributes for RUJNL attributes 

bets »RUJDEVNAM /* Device name of RU journal 

oe attributes for failed node (PROCESSOR) attributes 

jee »NODE_1D 7* Node ID of failed node 

or attribute for facility code to be used with merge command. 
eFACCOD /* Facility code *** INTERNAL USE ONLY *** 


(+ End of definitions 

) equais 1 increment 1; 
end SRODBADEF ; 
end_module; 


ase 


AAA AAAAAAAAAAAAAAAAAAAAAAAA AA AAAAAAAARARAAAAAAAAAAL 
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module S$RRPDEF; /* 
{tee 


RRP = Recovery Request Packet 


When a recovery is to be performed a Recovery WS ed Packet must 
/* be sent to the RC? that describes the caller, the object to be 
. recovered and the type of recovery. 


/t=- 


aggregate SRRPDEF structure prefix RRP$; 


FLINK address; /* Forward Link 

BLINK address; /* Backward Link 

SIZE word unsigned; /* Actual allocation size (in RCP) 
TYPE byte unsigned; /* Structure type 

SUBTYPE byte unsigned; /* Structure subtype 


fags. overlay union; 
word unsigned: /* Request flags: 
flags_bits structure; /* 
/* These two flags are exclusive 
RECOVERY bitfield mask; /* If set, start qoeoeere Operation 
a 


MERGE bitfield mask; - If set, merge in new facilit ty 

* These flags apply only to RECOVERY 
FORWARD bitfield aseks /* Roll-forward operation 
BACK bitfiel /* Rotl-back operation 
RECOVERY _UNIT bittietd mask; /* Process a Recovery Unit 
REMOUNT Bit field mask; /* Process a Recovery Unit Journal 
FORCE bitfield mask; /* Process a frozen Recovery Unit 


/* ..for BI, roll back over YRUALSO entries for 
/* ,.successful RUs. 


bitfield mask; /*L Fal recovery events 
FAILOVER bitfield mask; /* Failover of RUs from tolled node in cluster 
RESTART bitfield m /* Restart of frozen REMOUNT 
filler bitfield Tengéh 1o-"" fill: 
end flags_bits 


end flags_ ete AO 


FACNO word unsigned; /* Facility number eo MERGE only) 
TIME quadword unsigned; /* Time of reque 

CALL_PRIV queduers unsigned; /* Privilege Sesh “al CALLER 
CALL_PID Longword unsigned; i CALLER's eresees ID TEPID form) 
CALL_UIC longqword unsigned; /* UIC of ‘? ont iog process 
CALL_NODE longword unsigned; ie CSID o 
CALL-AMOD byte unsigned; /* Access node of CALLER 

CALL_MSG byte unsigned; /* CTL$GB RSGMASK of CALLER 

FILTER address; /* Address of filter descr part of RAP 
RODB addre /* Address of RODB descr part of RRP 
constant MBX OS IZE voavets 5126 /* Size of status MBX to create 

MBX_ word unsigned; 7* Status MBX unit number 

LOG_UNIT word unsigned; /* Logging MBX unit manner 

constant FIXED equals .; /* Size of fixed portion of RRP 

WORK byte tag AB; /* Start of RODBs, filters, and Journals 


end SRRPDEF ; 


E&€ ~~. e 6 @ 
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| 

;module SRUSDEF; /* 

{eee 

= RUS - List of recovery units as returned from IO$_RUCNTR ! IOSM_RUIDLIST OR ! RUJLIST 
/* This structure is used to return the list of recovery units outstanding 

/* in a recovery unit to which the RUCNTR operation is done. This i 

/* internal Q10 = not available to users, so this data structure is for 

/* internal purposes only. 

= NOTE that the status bit definitions must be the same as those for RUE. 


[too 


aggregate SRUSDEF structure prefix RUSS; 


RUID octaword unsigned ; /t Recovery Unit ID 
SEQNO longword unsigned ; /* sequence number Last entry ur Teen 
JNLCNT wor unsigned ; /* count of journals touched by RU 
sparel word unsigned ; /* Spare word to -_ A Lenquare boundary 
INDEX lLongword unsigned ; /* unique short RUE ind 
status_overlay union ; 
STATUS™ Longword uns igned 3 /* status of the Recovery Unit 
status_bits Spaveeure 3 
PURGED bitfield mask /* entry is free indicator 
ny bitfield mask; /* there is at least one roll back entry 
ROLL_FORW bitfield mask; /* there is at least one roll forward entry 
NOT_FLSHD bitfield mask; /* there is at least one entry not flushed 
OVER QUOTA A bitfield mask: /* quota exceeded 
PHASE1 bitfield mask; /* phasel done 
canes bitfield mask; /* phase2 done 
bitfield mask; /* abort done 
POSABSS bitfield mask; /* phase2 or abort entry to be encountered 2* 
/* before RU deletion 
RESIDUAL bitfield mask; /* this is a residual RU in journal 
COMPLETED bitfield mask; /* RU has been completed (rolled forward) 
CLEANUP bitfield mask; /* vestigial entry for RU can be ignored 
FROZEN bitfield mask; /* frozen RU 
RUSYNCEX bitfield mask; /* RUSYNC entry on ected 
RUSYNCWR bitfield mask; /* RUSYNC wary we 
NOFAC bitfield 5 /* Frozen due to sissine facility 
J bitfield ma /* Frozen due to missing object 
filler bittieta length 32-* fill ; 
end status_bits ; 
end seater wn t- 3 
DEVNAM character length 16 ; /* Counted ASCII device name 
constant ““LENGTH’’ equals . ; /* Length of structure 


constant "LENGTH" equals . tag C ; /* Length of structure 
end SRUSDEF ; ¥. — 
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end_module; 


VWWWWWTTT 


—_——————_—— 
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module SJENDEF; /* 


= JEN = Journal Entry 


M 
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/* Contains a pointer to the journal entry, plus related attributes as 


. returned by the JACP and passed 
aggregate SJENDEF structure prefix 


FLINK address; /* 
BLINK address; /* 
TIME quadword unsigned; 
FACNO word unsigned; /* 
DIRECTION byte unsigned; /* 
TYP yte unsigned; /* 
SEQNO longword unsigned; 
ENTMOD byte unsigned; /* 
JNLMOD byte unsigned; /* 
ENTUIC Longword unsigned; 
JNLUIC sengnere unsigned; 
ENTPROT word unsigned; /* 


to the recovery routines by the RCP. 
JENS; 


Forward Link 

Backward Link 

/* system time of journal entry 
Facility number of writer of journal entry 
Direction of recovery 

Type of journal (DT$_...) 

/* Senquence number of journal entry 
Access mode of journal entry 

Access mode of journal 

/* UIC of ction entry 

/* UIC of journal 

Protection mask of journal entry 
Protection mask of journal 


3 

ENTATR longword unsigned; /* Journal qntry attribute flags 
ruidblock structure; /* Recovery Unit | 

RUID byte unsigned dimension 16 tag 0; 

e ruidblock; 
MARKPT sanguere unsigned; /* MARKpointID for MARK/RESET control entries 
CHANNEL word unsigned; /* Channel assigned to journal ; 
JNULNAME character length 13;/* Journal name, counted ASCII string 


ENTSIZE word unsigned; /* 
“ENTRY” address; 
IOSB_DATA longword unsigned; 
constant “‘LENGTH’’ equals .; /* 


end SJENDEF ; 


~ 
7 


end_module; 


Length of journal entry in bytes 
Address of Journal Entry buffer 
/* copy of JLE second longword (RCP use only) 


length cf data structure 


~SNOo 


N 
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module S$SGBDEF; /* 

Jee 

/* 

Ae SGB = Shadow Group Block 

/* When a shadow group is mounted the user must pass this 

/* structure to the CJF SMNTJMD service. This is a List of 
i descriptors Like the item List, which must be zero ended. 
{/t-- 


aggregate S$SGBBIT structure prefix SGB$; 

INIT bitfield mask; /* bits defined for FLAGS 
end $SGBBIT; 
aggregate SSGBDEF structure prefix SGBS$; 


SIZE word unsigned; /* size of field descriptor block 
TYPE word unsigned; /* type of SGB field 
ADDR Longword unsigned; /* address user buffer for attribute 
os SPARE Longword unsigned; /* spare 
/* SGB codes 
/t- 
constant ( 
GRPNAME /* group logical name 
COPIES /* # of spool files 
PROT /* protection mask for shadow qroup 
»MAX_JNLS /* max journals allowed in shadow group 
»FLAGS /* flags 
oU /* uic for shadow group 
-SPLFILSIZ /* blocks to allocate for spool file 
» SPLNAM /* Spool file name 
2 SPLRESNAM /* Result spool file name 
2 SPLRESLEN /* Result spool file name Length 


_VAL 
§ equals 255 increment -1 tag C; 


constant ‘LENGTH’ equals .; /* Length of this structure 
constant "LENGTH" equals . tag C; /* Length of data structure 


end SSGBDEF ; 
end_module; 


1 
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module SCNYVDEF ;: 
cS Definitions for the create new version item list codes 


aggregate CNVDEF union prefix CNv$; 
CNVDEF _BITS structure; 
CLOSE bitfield mask; 
end CNVDEF _BITS; ' 


#min = 1; 
constant (MIN_VAL) equals #min prefix CNV tag ‘'$"’ 
(CURDEVNAM /* Current journal copy device name 


»NEWDEVNAM /t Device name for new version of journal copy 
»NEWVER /* Version number for new version of copy 

oF ILDEVNAM /* Device name for copy to connect/disconnect 

oF ILNAM /* File name for copy to connect/disconnect 
oFILVER /* Version number for copy to connect/disconnect 
OLDF ILNAM /* File name for create new version rename 

-ALQ /* Allocation quantity for new version 

FLAGS /* Flags 

-10SB /* Secondary status from create new version 
oNVRSA /* Result buffer address for new version spec. 
eNVRSL /* Result buffer size for new version file spec. 
-OVRSA /* Resuit buffer address for old version spec. 


OVRSL /* Result buffer size far old version file spec. 
j equals #min increment 1 counter conve st pret ts CNV tag ‘'$"’ 


end CNVDEF; 
end_module SCNVDEF; 


Isccienililtinegganesnihecibndghtgnieeaiesicnanttielipbegeanetedeinaitaag nie at icabsimeasia ridin de ML ais dees bltniiemecdh indented beasiabiacaihias 
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module SCJIDEF; 
. Definitions for the SGETCJI service item codes ee 


aggregate CJIDEF union prefix CJI$; 


@min = 1; 
constant (MIN_VAL) equals min prefix CJI tag — 
(F ICDSKNAM /* Get the journal file disk name 
j yin #min increment 1 counter Mcjictr, dh CJI tag *'S"’ 
2(MAX_VAL) equals @cjictr prefix CJI tag ' 


end CJIDEF; 
end _module™ * ScUIDEF: 
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